home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / BibliographyManager.cpt / Bibliography Manager II / Bib. Man. II Details / background_2745.txt < prev    next >
Text File  |  1990-08-26  |  9KB  |  379 lines
  1. -- background: 2745 from stack: in. II Details
  2. -- bmap block id: 3297
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: DetBkgnd
  6. ----- HyperTalk script -----
  7. xyzzy
  8.  
  9.  
  10. -- part 2 (field)
  11. -- low flags: 01
  12. -- high flags: 0000
  13. -- rect: left=3 top=70 right=137 bottom=139
  14. -- title width / last selected line: 0
  15. -- icon id / first selected line: 0 / 0
  16. -- text alignment: 65535
  17. -- font id: 0
  18. -- text size: 12
  19. -- style flags: 0
  20. -- line height: 16
  21. -- part name: Item1name
  22.  
  23.  
  24. -- part 4 (field)
  25. -- low flags: 01
  26. -- high flags: 0000
  27. -- rect: left=3 top=191 right=259 bottom=139
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 65535
  31. -- font id: 0
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: Item2name
  36.  
  37.  
  38. -- part 5 (field)
  39. -- low flags: 80
  40. -- high flags: 0007
  41. -- rect: left=142 top=70 right=298 bottom=507
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 0
  45. -- font id: 3
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: OneItem
  50.  
  51.  
  52. -- part 6 (field)
  53. -- low flags: 80
  54. -- high flags: 0007
  55. -- rect: left=142 top=70 right=186 bottom=507
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 0
  59. -- font id: 3
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: TwoItem Top
  64.  
  65.  
  66. -- part 7 (field)
  67. -- low flags: 80
  68. -- high flags: 0007
  69. -- rect: left=142 top=191 right=307 bottom=508
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 0
  73. -- font id: 3
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Bottom
  78.  
  79.  
  80. -- part 10 (button)
  81. -- low flags: 00
  82. -- high flags: A003
  83. -- rect: left=304 top=315 right=337 bottom=508
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Return to Bibliography Stack
  92. ----- HyperTalk script -----
  93. -- v. 1.1
  94. -- LAST UPDATE: 3/19/89
  95.  
  96. on mouseUp
  97.   if visible of bg btn id 15 is false then
  98.     get the script of fld "Entry Name"
  99.     visual iris close
  100.     go stack it
  101.   else
  102.     visual iris close
  103.     pop cd
  104.   end if
  105. end mouseUp
  106.  
  107.  
  108. -- part 12 (button)
  109. -- low flags: 00
  110. -- high flags: A003
  111. -- rect: left=6 top=315 right=337 bottom=135
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: Write to Text
  120. ----- HyperTalk script -----
  121. -- v. 1.1
  122. -- LAST UPDATE: 3/19/89
  123.  
  124. on mouseUp
  125.   set cursor to 4
  126.   get word 1 of fld id 13
  127.   if last char of it = "," then delete last char of it
  128.   put it into filout
  129.   repeat with i = 2 to ((the number of words in fld id 13) - 5)
  130.     put word i of fld id 13 into testwd
  131.     if char 1 of testwd = "1" or char 1 of testwd = "2" then
  132.       if the number of chars in testwd = 5 then
  133.         delete last char of testwd
  134.         put space & testwd after filout
  135.         exit repeat
  136.       end if
  137.     end if
  138.   end repeat
  139.   put " text" after filout
  140.   put "put IOQuery(" & item 1 of the topLeft of cd window & "," & item 2 of the topLeft of cd window & "," & quote & "o" & quote & "," & quote & filout & quote & ") into filout" into doit
  141.   do doit
  142.   if filout = "Error" or filout = "cancel" then
  143.     if filout = "Error" then
  144.       beep
  145.       answer "Encountered error in creating file"
  146.     end if
  147.     exit mouseUp
  148.   end if
  149.   set cursor to 4
  150.   put "Writing to file..."
  151.   open file filout
  152.   write "REFERENCE:" & return & fld id 13 & return & return & fld id 2 & return to file filout
  153.   if visible of fld id 5 is true then
  154.     write fld id 5 to file filout
  155.   else
  156.     write fld id 6 & return & return & fld id 4 & return & fld id 7 to file filout
  157.   end if
  158.   close file filout
  159.   hide message
  160. end mouseUp
  161.  
  162.  
  163.  
  164. -- part 13 (field)
  165. -- low flags: 01
  166. -- high flags: 0007
  167. -- rect: left=142 top=22 right=65 bottom=507
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 0
  171. -- font id: 3
  172. -- text size: 10
  173. -- style flags: 0
  174. -- line height: 13
  175. -- part name: Entry Name
  176.  
  177.  
  178. -- part 14 (button)
  179. -- low flags: 00
  180. -- high flags: A003
  181. -- rect: left=152 top=315 right=337 bottom=287
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: Read from Text
  190. ----- HyperTalk script -----
  191. -- v. 1.1
  192. -- LAST UPDATE: 3/19/89
  193.  
  194. on mouseUp
  195.   if visible of fld id 5 is false then
  196.     put fld id 4 & return & fld id 2 into fldnames
  197.     answer "Put text into which field?" with "Cancel" or line 1 of fldnames or line 2 of fldnames
  198.     if it = "Cancel" then exit mouseUp
  199.     if it = line 2 of fldnames then
  200.       put 6 into destfld
  201.     else
  202.       put 7 into destfld
  203.     end if
  204.   else
  205.     put 5 into destfld
  206.   end if
  207.   put "put IOQuery(" & item 1 of the topLeft of cd window & "," & item 2 of the topLeft of cd window & "," & quote & "i" & quote &") into filin" into doit
  208.   do doit
  209.   if filin = "Error" or filin = "cancel" then
  210.     if filin = "Error" then
  211.       beep
  212.       answer "Encountered error in locating/reading file"
  213.     end if
  214.     exit mouseUp
  215.   end if
  216.   set cursor to 4
  217.   open file filin
  218.   put "Reading from file..."
  219.   put 0 into lnct
  220.   repeat until lnct > 15
  221.     read from file filin until return
  222.     if it is empty then
  223.       add 1 to lnct
  224.     else
  225.       put 0 into lnct
  226.       put it after fld id destfld
  227.     end if
  228.   end repeat
  229.   close file filin
  230.   hide message
  231. end mouseUp
  232.  
  233.  
  234.  
  235. -- part 15 (button)
  236. -- low flags: 80
  237. -- high flags: 2002
  238. -- rect: left=84 top=271 right=307 bottom=122
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 19099 / 19099
  241. -- text alignment: 1
  242. -- font id: 0
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: Delete Card
  247. ----- HyperTalk script -----
  248. -- v. 1.1
  249. -- LAST UPDATE: 3/19/89
  250.  
  251. on mouseUp
  252.   answer "Delete this Details entry?" with "Delete" or "Cancel"
  253.   if it = "Cancel" then
  254.     exit mouseUp
  255.   else
  256.     put the userlevel into ulev
  257.     set the userlevel to 5
  258.     set cursor to 4
  259.     put "Removing link to Bibliography File..."
  260.     set lockScreen to true
  261.     put the id of this cd & " of " & the name of this stack into retcid
  262.     click at loc of bg btn id 10
  263.     choose btn tool
  264.     click at loc of btn "Show"
  265.     doMenu Clear Button
  266.     choose browse tool
  267.     set the script of this cd to empty
  268.     push cd
  269.     go retcid
  270.     put "Deleting details entry..."
  271.     if the number of cards of bg DetBkgnd < 2 then
  272.       repeat with i = 3 to 6
  273.         put empty into fld i
  274.       end repeat
  275.     else
  276.       doMenu Delete Card
  277.     end if
  278.     pop cd
  279.     set lockScreen to false
  280.     set userlevel to ulev
  281.     hide message
  282.     beep
  283.     answer "Details for this entry deleted" with "OK"
  284.     set userlevel to ulev
  285.   end if
  286. end mouseUp
  287.  
  288.  
  289.  
  290. -- part 16 (button)
  291. -- low flags: 00
  292. -- high flags: 2000
  293. -- rect: left=0 top=0 right=17 bottom=24
  294. -- title width / last selected line: 0
  295. -- icon id / first selected line: 0 / 0
  296. -- text alignment: 1
  297. -- font id: 0
  298. -- text size: 12
  299. -- style flags: 0
  300. -- line height: 16
  301. -- part name: Prev
  302. ----- HyperTalk script -----
  303. -- v. 1.1
  304. -- LAST UPDATE: 3/20/89
  305.  
  306. on mouseUp
  307.   hide bg btn id 15
  308.   go prev cd
  309. end mouseUp
  310.  
  311.  
  312.  
  313. -- part 17 (button)
  314. -- low flags: 00
  315. -- high flags: 2000
  316. -- rect: left=488 top=0 right=17 bottom=512
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 0 / 0
  319. -- text alignment: 1
  320. -- font id: 0
  321. -- text size: 12
  322. -- style flags: 0
  323. -- line height: 16
  324. -- part name: Next
  325. ----- HyperTalk script -----
  326. -- v. 1.1
  327. -- LAST UPDATE: 3/20/89
  328.  
  329. on mouseUp
  330.   hide bg btn id 15
  331.   go next cd
  332. end mouseUp
  333.  
  334.  
  335.  
  336. -- part 20 (button)
  337. -- low flags: 00
  338. -- high flags: 2002
  339. -- rect: left=2 top=271 right=307 bottom=40
  340. -- title width / last selected line: 0
  341. -- icon id / first selected line: 21700 / 21700
  342. -- text alignment: 1
  343. -- font id: 0
  344. -- text size: 12
  345. -- style flags: 0
  346. -- line height: 16
  347. -- part name: Delete Card
  348. ----- HyperTalk script -----
  349. -- v. 1.2
  350. -- LAST UPDATE: 6/16/90
  351.  
  352. on mouseUp
  353.   go home
  354.   show MenuBar
  355. end mouseUp
  356.  
  357.  
  358.  
  359. -- part 21 (button)
  360. -- low flags: 00
  361. -- high flags: A002
  362. -- rect: left=43 top=271 right=307 bottom=81
  363. -- title width / last selected line: 0
  364. -- icon id / first selected line: 0 / 0
  365. -- text alignment: 1
  366. -- font id: 0
  367. -- text size: 12
  368. -- style flags: 0
  369. -- line height: 16
  370. -- part name: Quit
  371. ----- HyperTalk script -----
  372. -- v. 1.2
  373. -- LAST UPDATE: 6/16/90
  374.  
  375. on mouseUp
  376.   doMenu Quit HyperCard
  377. end mouseUp
  378.  
  379.